object fmHavuzOlustur: TfmHavuzOlustur
  Left = 48
  Top = 156
  BorderStyle = bsSingle
  Caption = #220'retim Havuz Olu'#351'turma'
  ClientHeight = 466
  ClientWidth = 936
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 408
    Width = 936
    Height = 58
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Panel5: TPanel
      Left = 811
      Top = 2
      Width = 123
      Height = 54
      Align = alRight
      BevelOuter = bvNone
      Caption = 'Panel5'
      TabOrder = 0
      object Button1: TButton
        Left = 8
        Top = 8
        Width = 105
        Height = 41
        Caption = 'Kapat'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = Button1Click
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 936
    Height = 89
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 117
      Height = 20
      Caption = 'AnaSeri Numara'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 16
      Top = 48
      Width = 127
      Height = 20
      Caption = 'Bagl'#305' Seri Numara'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lblAnaStok: TLabel
      Left = 352
      Top = 8
      Width = 4
      Height = 20
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lblBagliStok: TLabel
      Left = 352
      Top = 40
      Width = 4
      Height = 20
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object edAnaSerino: TEdit
      Left = 154
      Top = 12
      Width = 295
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnKeyDown = edAnaSerinoKeyDown
    end
    object edAltSeriNo: TEdit
      Left = 154
      Top = 44
      Width = 295
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnChange = edAltSeriNoChange
      OnKeyDown = edAltSeriNoKeyDown
    end
    object Button2: TButton
      Left = 817
      Top = 12
      Width = 111
      Height = 61
      Caption = 'Aktar'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 89
    Width = 936
    Height = 121
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object wwDBGrid1: TwwDBGrid
      Left = 2
      Top = 2
      Width = 853
      Height = 117
      DisableThemes = False
      Selected.Strings = (
        'AnaSeriNo'#9'20'#9'AnaSeriNo'#9'F'
        'BagliSeriNo'#9'20'#9'BagliSeriNo'#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      DataSource = DsListeEkle
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      ParentFont = False
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -16
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      TitleLines = 1
      TitleButtons = False
      UseTFields = False
    end
    object Panel6: TPanel
      Left = 855
      Top = 2
      Width = 79
      Height = 117
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object btnSil: TButton
        Left = 0
        Top = 24
        Width = 75
        Height = 65
        Caption = 'Sil'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = btnSilClick
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 210
    Width = 936
    Height = 198
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object wwDBGrid2: TwwDBGrid
      Left = 2
      Top = 2
      Width = 853
      Height = 194
      DisableThemes = False
      Selected.Strings = (
        'AnaSeriNo'#9'15'#9'AnaSeriNo'#9'F'
        'cinsi'#9'30'#9'Stok Cinsi'#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      DataSource = DsListe
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgCancelOnExit, dgWordWrap]
      ParentFont = False
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      TitleLines = 1
      TitleButtons = False
      UseTFields = False
    end
    object Panel7: TPanel
      Left = 855
      Top = 2
      Width = 79
      Height = 194
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object btnDuzelt: TButton
        Left = 0
        Top = 64
        Width = 75
        Height = 65
        Caption = 'D'#252'zelt'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = btnDuzeltClick
      end
    end
  end
  object AdoListe: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select urh.id,urh.AnaSeriNo, urh.BagliSerino, st.cinsi , urh.Dur' +
        'um from tblUretimHavuz urh'
      #9'join fatharhar fhh on fhh.Serinos = urh.AnaSeriNo'
      #9'join Stok st on fhh.StokKod=st.stokkod'
      #9'join fatharhar fhhBag on fhhBag.Serinos = urh.AnaSeriNo'
      #9'join Stok stBag on fhhBag.StokKod=stBag.stokkod'
      ''
      'where urh.durum is null')
    Left = 24
    Top = 417
  end
  object DsListe: TDataSource
    DataSet = AdoListe
    Left = 88
    Top = 417
  end
  object AdoListeEkle: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from tblUretimHavuz urh'
      'where durum is null and id=0')
    Left = 552
    Top = 121
  end
  object DsListeEkle: TDataSource
    DataSet = AdoListeEkle
    Left = 624
    Top = 120
  end
  object DBagliAyrinti: TDataSource
    DataSet = AdoAyrinti
    Left = 552
    Top = 417
  end
  object AdoAyrinti: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select urh.BagliSeriNo , stBag.Cinsi  from tblUretimHavuz urh'
      #9'join fatharhar fhh on fhh.Serinos = urh.AnaSeriNo'
      #9'join Stok st on fhh.StokKod=st.stokkod'
      #9'join fatharhar fhhBag on fhhBag.Serinos = urh.AnaSeriNo'
      #9'join Stok stBag on fhhBag.StokKod=stBag.stokkod'
      'where urh.durum is null ')
    Left = 472
    Top = 417
  end
end
